Câu 1:Trong ngôn ngữ Pascal, về mặt cú pháp câu lệnh nào sau đây đúng với cấu trúc lặp For ..to..do
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 1: Câu lệnh pascal nào sau đây là hợp lệ?
a) For i:=100 to 1 do writeln(‘A’);
b) For i:=1.5 to 10.5 do writeln(‘A’);
c) For i= 1 to 10 do writeln(‘A’);
d) For i:= 1 to 10 do writeln(‘A’);
Câu 2: Lệnh lặp For, mỗi lần lặp giá trị của biến đếm thay đổi như thế nào?
A. Tăng 1
B. Tăng 2
C. Tăng 3
D. Tăng 4
Câu 4: Vòng lặp for ..do là vòng lặp:
A. Biết trước số lần lặp
B. Chưa biết trước số lần lặp
C. Biết trước số lần lặp nhưng giới hạn là <=50
D. Biết trước số lần lặp nhưng giới hạn là >=50
Câu 5: Với ngôn ngữ lập trình Pascal câu lệnh lặp for i:=1 to 10 do x:=x+1;
thì biến đếm i phải được khai báo là kiểu dữ liệu: *
A. Integer
B. Real
C. String
D. Tất cả các kiểu trên đều được
Câu 6: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 5 do
s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
a) 11
b) 55
c) 101
d) 15
Câu 7: Để tính tổng S=1+3 + 5 + … + n; em chọn đoạn lệnh:
a) for i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i; c) for i:=1 to n do if ( i mod 2) < > 0 then S:=S + i;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i
Else S:= S + i; d) for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
Câu 8: Để đếm có bao nhiêu số lẻ nhỏ hơn hay bằng n ; em chọn đoạn lệnh:
a) for i:=1 to n do
if ( i mod 2)< >0 then S:=S + 1; c) for i:=1 to n do if ( i mod 2) =0 then S:=S + 1;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i ; d) for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
III. Bài tập thực hành: Viết chương trình nhập vào 1 số nguyên n. Viết ra 20 các số chẳn tiếp theo lớn hơn số n.
GIÚP VỚI !!!
1.C
2.A
4.A
5.A
6.D
7.C
8.A
III.
Program HOC24;
var n,d: integer;
begin
write('Nhap N: '); readln(n);
if n mod 2=1 then
begin
begin
n:=n+1;
write(n,' ');
end;
d:=1;
while d<20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end else
begin
d:=1;
while d<=20 do
begin
n:=n+2;
write(n,' ');
d:=d+1;
end;
end;
readln
end.
Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i := 1.5 to 5.5 do writeln(‘A’);
B. for i := 1 to 100 do writeln(‘A’);
C. for i := 10 to 1 do writeln(‘A’);
D. for i := 1 to 10; do writeln(‘A’);
B.
Giải thích:
A: Sai vì giá trị đầu và giá trị cuối của vòng lặp phải là giá trị nguyên ở đây là số thực nên sẽ bị lỗi
C: Sai vì đây là vòng lặp tiến nhưng lại giá trị đầu > giá trị cuối
D: Thừa dấu ; ở sau số 10
A. TRẮC NGHIỆM: (2 điểm) Hãy khoanh tròn ý đúng nhất.
Câu 1:Trong ngôn ngữ Pascal, về mặt cú pháp câu lệnh nào sau đây đúng với cấu trúc lặp For ..to..do
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2:Trong câu lệnh lặp for i:=1 to 22 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
A. Không lần nào B. 22 lầnC. 20 lần D. 30 lần
Câu 3:Khi thực hiện đoạn chương trình sau: n:=100; T:=10;
While T>20 do begin T:=T – 10; n:=n+5; end;
Hãy cho biết giá trị của biến n bằng bao nhiêu?
A. 10 B. 100 C. 16 D. 15
Câu 4:Đoạn chương trình này thực hiện bao nhiêu vòng lặp
S:=0;A:=2;while A<5 do S:=S+A;
A. 1 vòng lặp B. Lặp vô hạn
C. 25 vòng lặp D. Không có vòng lặp nào
Câu 5:Hãy phân biệt câu lệnh trong chương trình trên đúng hay sai và đánh dấu “x” vào ô ở cột tương ứng trong bảng dưới đây?
Câu | Đúng | Sai |
a. While a<=b do writeln (‘A’); |
|
|
b. For i:=10 to 1 do writeln(‘A’); |
|
|
c. Var X: array[1..10] of integer; |
|
|
d. Var X: array[15..8] of integer; |
|
|
A. TRẮC NGHIỆM: (2 điểm) Hãy khoanh tròn ý đúng nhất.
Câu 1:Trong ngôn ngữ Pascal, về mặt cú pháp câu lệnh nào sau đây đúng với cấu trúc lặp For ..to..do
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2:Trong câu lệnh lặp for i:=1 to 22 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
A. Không lần nào B. 22 lầnC. 20 lần D. 30 lần
Câu 3:Khi thực hiện đoạn chương trình sau: n:=100; T:=10;
While T>20 do begin T:=T – 10; n:=n+5; end;
Hãy cho biết giá trị của biến n bằng bao nhiêu?
A. 10 B. 100 C. 16 D. 15
Câu 4:Đoạn chương trình này thực hiện bao nhiêu vòng lặp
S:=0;A:=2;while A<5 do S:=S+A;
A. 1 vòng lặp B. Lặp vô hạn
C. 25 vòng lặp D. Không có vòng lặp nào
Câu 5:Hãy phân biệt câu lệnh trong chương trình trên đúng hay sai và đánh dấu “x” vào ô ở cột tương ứng trong bảng dưới đây?
Câu | Đúng | Sai |
a. While a<=b do writeln (‘A’); |
|
|
b. For i:=10 to 1 do writeln(‘A’); |
|
|
c. Var X: array[1..10] of integer; |
|
|
d. Var X: array[15..8] of integer; |
|
|
B. TỰ LUẬN: (8,0 điểm)
Câu 1: Hãy điền đúng , sai (đánh dấu x) và sửa chương trình sau: (3điểm)
Viết chương trình tính H và tìm n biết H= 
và H >1.85
Câu lệnh | Đ | S | Sửa lỗi |
Use_Crt; |
|
|
|
Var I, n,H :interge; |
|
|
|
Begin; |
|
|
|
H:=1; n:=0; |
|
|
|
clrscr; |
|
|
|
while H<= 1.85 do |
|
|
|
begin n:=n+2; |
|
|
|
if n mod 2 =1 then H:= H+1/n; |
|
|
|
End. |
|
|
|
writeln('so can tim la ,n,’tong la:,H); |
|
|
|
readln end; |
|
|
|
Câu 2: (5 điểm)
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
b)Viết chương trình nhập dãy số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
Ai giúp mk với
A. TRẮC NGHIỆM: (2 điểm) Hãy khoanh tròn ý đúng nhất.
Câu 1:Trong ngôn ngữ Pascal, về mặt cú pháp câu lệnh nào sau đây đúng với cấu trúc lặp For ..to..do
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2:Trong câu lệnh lặp for i:=1 to 22 do begin…end; câu lệnh ghép được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
A. Không lần nào B. 22 lầnC. 20 lần D. 30 lần
Câu 3:Khi thực hiện đoạn chương trình sau: n:=100; T:=10;
While T>20 do begin T:=T – 10; n:=n+5; end;
Hãy cho biết giá trị của biến n bằng bao nhiêu?
A. 10 B. 100 C. 16 D. 15
Câu 4:Đoạn chương trình này thực hiện bao nhiêu vòng lặp
S:=0;A:=2;while A<5 do S:=S+A;
A. 1 vòng lặp B. Lặp vô hạn
C. 25 vòng lặp D. Không có vòng lặp nào
Câu 5:Hãy phân biệt câu lệnh trong chương trình trên đúng hay sai và đánh dấu “x” vào ô ở cột tương ứng trong bảng dưới đây?
Câu | Đúng | Sai |
a. While a<=b do writeln (‘A’); |
|
|
b. For i:=10 to 1 do writeln(‘A’); |
|
|
c. Var X: array[1..10] of integer; |
|
|
d. Var X: array[15..8] of integer; |
|
|
Câu 1: Câu lệnh lặp nào bên dưới có dạng đúng?
A. For i= 1 to 10 do writeln(‘A’);
B. For i:=1.5 to 10.5 do writeln(‘A’);
C. For i:= 1 to 10 do writeln(‘A’);
D. For i:=100 to 1 do writeln(‘A’);
E. x:=10; While x=10 do x=x+5;
F. x:=10; While x=10 to x:=x+5;
G. x:=10 While x=10 do x:=x+5;
H. x:=10; While x=10 do x:=x+5;
Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?
Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?
a) For i:=10 to 1 do write('a');
b) For i:=1 to 10 do write('a');
c) For i:=1 to 10 do write('a'); write('b');
Bài 3: For i:=1 to n do readln(a); lặp mấy lần?
Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i;
Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?
Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên.
Làm nhanh nhanh giúp em nha mấy anh mấy chị. Cảm ơn trước nha. :))
Câu 1:
-Đánh răng rửa mặt mỗi ngày
-Đi học
-Đi ngủ
Câu 2:
a) Sai
Sửa lại: for i:=10 downto 1 do write('a');
b) Đúng
c) Đúng
Câu 3:
Lặp n-1+1=n(lần)
Câu 4:
S=15
Câu 5:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln('Tong cua 10 so tu nhien dau tien la: ',s);
readln;
end.
Các câu lệnh sau trong Pascal sau có hợp lệ không? Nếu không hãy sửa lại cho hợp lệ?
a) For i:= 50 to 10 do writeln(‘A’);
b) For i:= 1.5 to 5.5 do Writeln(‘A’)
a) Không hợp lệ
Sửa: for i:=50 downto 10 do writeln('A');
b) Không hợp lệ
Sửa: for i:=1 to 5 do writeln('A');
